home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Utilities / Random Stuff / HyperSleep / card_3346.txt < prev    next >
Encoding:
Text File  |  1988-04-24  |  3.3 KB  |  147 lines
  1. -- card: 3346 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 2744
  5. -- name: Timeout Script
  6. ----- HyperTalk script -----
  7. global Timeout
  8. global OldLoc
  9. get the MouseLoc
  10. if it = OldLoc then -- Have not moved since last time
  11.   get card field Time -- See it we have timed out
  12.   convert it to seconds
  13.   if it > Timeout then -- Timed out so go to Timeout card
  14.     hide menuBar
  15.     visual effect dissolve slowly
  16.     push card
  17.     go to card "Timeout Card" of stack "HyperSleep"
  18.   end if
  19. else -- We moved so reset the timer and OldLoc
  20.   put it into OldLoc
  21.   put the time into Timeout
  22.   convert Timeout to seconds
  23.   add 10 to Timeout
  24. end if
  25.  
  26.  
  27.  
  28. -- part 3 (field)
  29. -- low flags: 00
  30. -- high flags: 0000
  31. -- rect: left=43 top=66 right=292 bottom=492
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 0
  35. -- font id: 4
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: 
  40.  
  41.  
  42. -- part 4 (button)
  43. -- low flags: 00
  44. -- high flags: 8003
  45. -- rect: left=79 top=302 right=324 bottom=224
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 0 / 0
  48. -- text alignment: 1
  49. -- font id: 0
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 16
  53. -- part name: Open Timeout Script
  54. ----- HyperTalk script -----
  55. on mouseUp
  56.   edit script of card "Timeout Script"
  57. end mouseUp
  58.  
  59.  
  60.  
  61. -- part 5 (button)
  62. -- low flags: 00
  63. -- high flags: 8003
  64. -- rect: left=304 top=301 right=324 bottom=445
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 0 / 0
  67. -- text alignment: 1
  68. -- font id: 0
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: Open Home Script
  73. ----- HyperTalk script -----
  74. on mouseUp
  75.   push card
  76.   go Home
  77.   edit script of first card
  78.   pop card
  79. end mouseUp
  80.  
  81.  
  82.  
  83. -- part 7 (button)
  84. -- low flags: 00
  85. -- high flags: 0000
  86. -- rect: left=227 top=301 right=326 bottom=254
  87. -- title width / last selected line: 0
  88. -- icon id / first selected line: 1014 / 1014
  89. -- text alignment: 1
  90. -- font id: 0
  91. -- text size: 12
  92. -- style flags: 0
  93. -- line height: 16
  94. -- part name: Prev
  95. ----- HyperTalk script -----
  96. on mouseUp
  97.   visual effect wipe right
  98.   go to previous card of this bkgnd
  99. end mouseUp
  100.  
  101.  
  102.  
  103. -- part 8 (field)
  104. -- low flags: 01
  105. -- high flags: 0000
  106. -- rect: left=42 top=34 right=65 bottom=491
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 1
  110. -- font id: 2
  111. -- text size: 18
  112. -- style flags: 0
  113. -- line height: 24
  114. -- part name: 
  115.  
  116.  
  117. -- part 9 (field)
  118. -- low flags: 01
  119. -- high flags: 0000
  120. -- rect: left=43 top=66 right=292 bottom=492
  121. -- title width / last selected line: 0
  122. -- icon id / first selected line: 0 / 0
  123. -- text alignment: 0
  124. -- font id: 4
  125. -- text size: 12
  126. -- style flags: 0
  127. -- line height: 16
  128. -- part name: 
  129.  
  130.  
  131. -- part contents for card part 3
  132. ----- text -----
  133. 1. Press the "Open Timeout Script" button and hold the                          command key while pressing the "A" key to select the entire script.
  134. 2. Hold the command key and press "C" to copy the script to the clipboard.
  135. 3. Press the the Cancel button to close the script.
  136. 4. Press the "Edit Home Script" button to send you to the home card.
  137. 7. Find the routine called "on idle".
  138. 8. Click in front of the line which contains the phrase "pass idle".
  139. 9. Hold the command key and press the "V" key to paste in the new script.
  140. 10. Press the OK button.
  141.  
  142.  
  143.  
  144.  
  145. -- part contents for card part 8
  146. ----- text -----
  147. Installing the script